home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / apps / database / ingres04.lzh / source / equel / name.c < prev    next >
Encoding:
C/C++ Source or Header  |  1984-12-31  |  2.1 KB  |  108 lines
  1. # include    <stdio.h>
  2. # include    "constants.h"
  3. # include    "globals.h"
  4. # include    "y.tab.h"
  5. # include    <sccs.h>
  6.  
  7. SCCSID(@(#)name.c    8.1    12/31/84)
  8.  
  9.  
  10. /*
  11. **  NAME -- Process an identifier or keyword token.
  12. **
  13. **    Name gets the identifier that follows in the std.
  14. **    input, and checks if it is a keyword.
  15. **    An identifier is defined as a sequence of
  16. **    MAXNAME or fewer alphanumerics, starting with an
  17. **    alphabetic character.
  18. **
  19. **    Parameters:
  20. **        chr - the first character of the identifier
  21. **
  22. **    Returns:
  23. **        Tokens.sp_name - for a user-defined name
  24. **        Tokens.sp_struct_var -- if the name is declared 
  25. **            a structurw variable
  26. **        other - lexical codes for keys
  27. **
  28. **    Side Effects:
  29. **        Adds a token to the symbol space.
  30. **        yylval is set to the new node in the space.
  31. **        If the identifier is a keyword, sets Opcode to
  32. **        op_code from tokens.y.
  33. */
  34.  
  35. name(chr)
  36. char        chr;
  37. {
  38.     int            lval;
  39.     register        i;
  40.     char            wbuf [MAXNAME + 1];
  41.     register char        *cp;
  42.     register char        c;
  43.     struct optab        *op;
  44.     struct optab        *getkey();
  45.     struct cvar        *getcvar();
  46.     struct cvar        *hold;
  47.  
  48.     c = chr;
  49.     cp = wbuf;
  50.     for (i = 0; i <= MAXNAME; i++)
  51.     {
  52.         lval = Cmap [c];
  53.         if (i < MAXNAME &&
  54.            (lval == ALPHA || lval == NUMBR))
  55.         {
  56.             *cp++ = c;
  57.             c = getch();
  58.         }
  59.         else if (lval == ALPHA || lval == NUMBR)
  60.         {
  61.             /* {i == MAXNAME && "c is legal" && 
  62.              *  cp == &wbuf [MAXNAME]} 
  63.              */
  64.             *cp = '\0';
  65.             yysemerr("name too long", wbuf);
  66.             /* chomp to end of identifier */
  67.  
  68.             do
  69.             {
  70.                 c = getch();
  71.                 lval = Cmap [c];
  72.             }  while (lval == ALPHA || lval == NUMBR);
  73.             backup(c);
  74.             
  75.             /* take first MAXNAME characters as IDENTIFIER 
  76.              * (non-key)
  77.              */
  78.             yylval.u_dn = addsym(salloc(wbuf));
  79.             return (Tokens.sp_name);
  80.         }
  81.         else
  82.         {
  83.             /* {cp <= &wbuf [MAXNAME] && i <= MAXNAME
  84.              * && "c is not part of id"}
  85.              */
  86.             backup(c);
  87.             *cp = '\0';
  88.             i = 0;
  89.             break;
  90.         }
  91.     }
  92.     op = getkey(wbuf);
  93.  
  94.     /* Is it a keyword ? */
  95.     if (op)
  96.     {
  97.         yylval.u_dn = addsym(op->op_term);
  98.         Opcode = op->op_code;
  99.         return (op->op_token);
  100.     }
  101.     /* user-defined name */
  102.     yylval.u_dn = addsym(salloc(wbuf));
  103.     hold = getcvar(wbuf);
  104.     if (hold != 0 && hold->c_type == opSTRUCT)
  105.         return(Tokens.sp_struct_var);
  106.     return (Tokens.sp_name);
  107. }
  108.